home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00040.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  1.1 KB  |  54 lines
  1. on change
  2.   global bore, drumonly, switch, wait, change, check, s
  3.   if the mouseDown then
  4.     set wait to 1
  5.     if the timeoutLapsed > (3 * 60) then
  6.       startTimer()
  7.       set bore to bore + 1
  8.       borecheck()
  9.       redraw()
  10.       put "user flip" into field "debug"
  11.       do("sel" & s & EMPTY)
  12.     end if
  13.     set drumonly to 0
  14.   end if
  15.   set switch to switch + 1
  16.   if switch > 600 then
  17.     dropdrums()
  18.     set switch to 0
  19.   end if
  20.   set wait to wait + 1
  21.   if wait > 120 then
  22.     set check to 0
  23.     set the timeoutLength to 10 * 60
  24.     when timeOut then 
  25.     if the lastClick > (10 * 60) then
  26.       startTimer()
  27.       set change to random(4)
  28.       if change = 1 then
  29.         dropdrums()
  30.       end if
  31.       if change = 2 then
  32.         dropsounds()
  33.       end if
  34.       if change = 3 then
  35.         changesounds()
  36.       end if
  37.       if change = 4 then
  38.         changesounds()
  39.       end if
  40.       set wait to 0
  41.     end if
  42.   end if
  43.   if wait > 50 then
  44.     set check to check + 1
  45.     if check = 1 then
  46.       set s to random(10)
  47.       redraw()
  48.       put "auto flip" into field "debug"
  49.       do("sel" & s & EMPTY)
  50.       set check to check + 1
  51.     end if
  52.   end if
  53. end
  54.